home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 1998 November / maximum-cd-1998-11.iso / Truespace 4 / Data / PROGRAM / PROCSETS / set009 < prev    next >
Encoding:
Text File  |  1998-08-27  |  637 b   |  42 lines
  1. %%BeginResource: procset Adobe_packedarray 2.0 0
  2. %%Title: (Packed Array Operators)
  3. %%Version: 2.0 0
  4. %%CreationDate: (8/2/90) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. userdict /Adobe_packedarray 5 dict dup begin put
  7. /initialize
  8. {
  9. /packedarray where
  10.     {
  11.     pop
  12.     }
  13.     {
  14.     Adobe_packedarray begin
  15.     Adobe_packedarray
  16.         {
  17.         dup xcheck
  18.             {
  19.             bind
  20.             } if
  21.         userdict 3 1 roll put
  22.         } forall
  23.  end
  24.     } ifelse
  25. } def
  26. /terminate
  27. {
  28. } def
  29. /packedarray
  30. {
  31. array astore readonly
  32. } def
  33. /setpacking
  34. {
  35. pop
  36. } def
  37. /currentpacking
  38. {
  39. false
  40. } def
  41. currentdict readonly pop end
  42. %%EndResource